home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / edit_topic < prev    next >
Text File  |  2002-09-18  |  357b  |  25 lines
  1. #
  2. # Felony asked me for this, so here you go! =)
  3. #
  4. alias edit_topic
  5. {
  6.     ^local thetopic
  7.     ^stack push on 333
  8.     ^stack push on 332
  9.     ^stack push on 331
  10.     ^on ^333 * #
  11.     ^on ^332 * {
  12.         bless
  13.         @ thetopic = [$2-]
  14.     }
  15.     ^on ^331 * #
  16.     ^topic
  17.     ^wait
  18.     ^parsekey erase_line
  19.     ^xtype -literal /topic $thetopic
  20.     stack pop on 331
  21.     stack pop on 332
  22.     stack pop on 333
  23. }
  24. #hop'y2k
  25.